<script>on mouseUpanswer file "Choose a file to examine:"put it into appnameif appname is "" then exit mouseupget getcreator(appname)if the number of chars of it = 4 thenanswer "The CREATOR of “" & appname & "” is" && it & "."elseanswer it with "Sorry"end ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>108</left>
<top>54</top>
<right>208</right>
<bottom>76</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>SetCreator</name>
<script>on mouseUpanswer file "Choose a file to modify:"put it into appnameif appname is "" then exit mouseupask "Change Creator to what?" with getcreator(appname)if it = "" then exit mouseupsetcreator appname,itif the result ≠ "" then answer the result with "Sorry"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>82</top>
<right>511</right>
<bottom>309</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text>GetCreator takes one parameter, the pathname of the file you want to examine, and it returns the four character Creator of the file. SetCreator takes two parameters, the pathname of the file and the four character Creator to use. Click on and/or examine the scripts of the buttons above to see how it works!A small shareware fee (per external) of $5 is requested if you use these externals in any “in-house”, shareware or freeware products. The registration fee (per external) for development and prototyping of a future commercial product is $10. The registration fee (per external) for unlimited commercial use in a SINGLE “for sale” product is $15. The fee (per external) for unlimited commercial use with MULTIPLE products is $25. These are lifetime registrations. You are entitled to all future shareware updates without further cost.If you have comments, questions, or suggestions, you can contact me in any of the following ways: America Online: J5rson Internet: j5rson@aol.com CompuServe: 76675,1772 GEnie: J5rson Watermark: 616.698.2310 Telephone: 616.949.0346 U. S. Mail: Jeff Iverson 3841 Whispering Way Dr. SE #101 Grand Rapids MI 49546-5849</text>
